inherited fmAddEdit_IR: TfmAddEdit_IR
  Left = 409
  Top = 219
  Width = 1024
  Height = 641
  Caption = #1044#1086#1082#1091#1084#1077#1085#1090
  Constraints.MinHeight = 611
  Constraints.MinWidth = 932
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 576
    Width = 1008
  end
  inherited Panel1: TPanel
    Width = 1008
    inherited BitBtn1: TBitBtn
      Left = 833
    end
    inherited BitBtn2: TBitBtn
      Left = 921
    end
  end
  object Panel6: TPanel [2]
    Left = 0
    Top = 45
    Width = 625
    Height = 531
    Align = alLeft
    TabOrder = 2
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 623
      Height = 200
      Align = alTop
      Enabled = False
      TabOrder = 0
      object Label18: TLabel
        Left = 1
        Top = 1
        Width = 621
        Height = 13
        Align = alTop
        Caption = #1050#1086#1084#1091
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 1
        Top = 55
        Width = 621
        Height = 13
        Align = alTop
        Caption = #1058#1077#1084#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 1
        Top = 177
        Width = 621
        Height = 13
        Align = alTop
        Caption = #1058#1077#1082#1089#1090' ('#1084#1086#1078#1085#1086' '#1089#1086#1079#1076#1072#1090#1100' '#1074' Word '#1080' '#1089#1082#1086#1087#1080#1088#1086#1074#1072#1090#1100' '#1089#1102#1076#1072')'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Panel4: TPanel
        Left = 1
        Top = 14
        Width = 621
        Height = 41
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object lcbSotr: TcxDBLookupComboBox
          Left = 7
          Top = 12
          DataBinding.DataField = 'PID_target'
          DataBinding.DataSource = dlgDS
          ParentFont = False
          Properties.DropDownListStyle = lsEditList
          Properties.DropDownRows = 15
          Properties.KeyFieldNames = 'PID'
          Properties.ListColumns = <
            item
              Caption = #1060#1048#1054
              FieldName = 'PP'
            end
            item
              Caption = #1057#1090#1072#1090#1091#1089
              FieldName = 'SDNAME'
            end
            item
              Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
              Fixed = True
              FieldName = 'PDATEBIRTH'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsPeople
          Properties.MaxLength = 0
          Properties.OnCloseUp = lcbSotrPropertiesCloseUp
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clBlack
          Style.Font.Height = -15
          Style.Font.Name = 'Tahoma'
          Style.Font.Style = []
          Style.Shadow = True
          Style.IsFontAssigned = True
          TabOrder = 0
          OnMouseDown = lcbSotrMouseDown
          Width = 514
        end
      end
      object Panel5: TPanel
        Left = 1
        Top = 68
        Width = 621
        Height = 109
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Label5: TLabel
          Left = 0
          Top = 48
          Width = 175
          Height = 13
          Caption = #1055#1088#1077#1076#1087#1086#1083#1072#1075#1072#1077#1084#1072#1103' '#1076#1072#1090#1072' '#1080#1089#1087#1086#1083#1085#1077#1085#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGray
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 229
          Top = 49
          Width = 55
          Height = 13
          Caption = #1055#1088#1080#1086#1088#1080#1090#1077#1090
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGray
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object cxDBTextEdit1: TcxDBTextEdit
          Left = 8
          Top = 13
          DataBinding.DataField = 'irtema'
          DataBinding.DataSource = dlgDS
          ParentFont = False
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clWindowText
          Style.Font.Height = -15
          Style.Font.Name = 'Arial'
          Style.Font.Style = []
          Style.Shadow = True
          Style.IsFontAssigned = True
          TabOrder = 0
          OnMouseDown = lcbSotrMouseDown
          Width = 513
        end
        object deIRDATECOMPLETE: TcxDBDateEdit
          Left = 8
          Top = 67
          DataBinding.DataField = 'IRDATECOMPLETE'
          DataBinding.DataSource = dlgDS
          ParentFont = False
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clWindowText
          Style.Font.Height = -16
          Style.Font.Name = 'Tahoma'
          Style.Font.Style = []
          Style.Shadow = True
          Style.IsFontAssigned = True
          TabOrder = 1
          Width = 161
        end
        object lcbPrioritet: TcxDBLookupComboBox
          Left = 226
          Top = 67
          DataBinding.DataField = 'IRPRIORITET'
          DataBinding.DataSource = dlgDS
          ParentFont = False
          Properties.DropDownRows = 3
          Properties.KeyFieldNames = 'id'
          Properties.ListColumns = <
            item
              FieldName = 'name'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsPrior
          Properties.MaxLength = 0
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clBlack
          Style.Font.Height = -15
          Style.Font.Name = 'Tahoma'
          Style.Font.Style = []
          Style.Shadow = True
          Style.IsFontAssigned = True
          TabOrder = 2
          OnMouseDown = lcbSotrMouseDown
          Width = 175
        end
      end
    end
    object cxDBRichEdit1: TcxDBRichEdit
      Left = 1
      Top = 201
      Align = alClient
      DataBinding.DataField = 'irrtf'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.AllowObjects = True
      Properties.AutoURLDetect = True
      Properties.HideScrollBars = False
      Properties.MaxLength = 0
      Properties.ReadOnly = False
      Properties.ScrollBars = ssVertical
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = True
      Style.IsFontAssigned = True
      TabOrder = 1
      Height = 329
      Width = 623
    end
  end
  object Panel3: TPanel [3]
    Left = 633
    Top = 45
    Width = 402
    Height = 531
    Align = alClient
    Constraints.MinHeight = 531
    Constraints.MinWidth = 402
    Enabled = False
    TabOrder = 3
    object Label4: TLabel
      Left = 13
      Top = 327
      Width = 36
      Height = 13
      Caption = #1057#1090#1072#1090#1091#1089
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 10
      Top = 383
      Width = 119
      Height = 13
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081' '#1082' '#1089#1090#1072#1090#1091#1089#1091
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object cxLabel1: TcxLabel
      Left = 1
      Top = 28
      Align = alTop
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1080' '#1086' '#1093#1086#1076#1077' '#1074#1099#1087#1086#1083#1085#1077#1085#1080#1103
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clGray
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
    end
    object mComment: TcxDBMemo
      Left = 8
      Top = 408
      DataBinding.DataField = 'irstatusnote'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = True
      Style.IsFontAssigned = True
      TabOrder = 1
      Height = 105
      Width = 385
    end
    object cxDBLookupComboBox1: TcxDBLookupComboBox
      Left = 10
      Top = 348
      DataBinding.DataField = 'irstatus'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownRows = 10
      Properties.KeyFieldNames = 'id'
      Properties.ListColumns = <
        item
          FieldName = 'name'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = DataSource1
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = True
      Style.IsFontAssigned = True
      TabOrder = 2
      OnMouseDown = lcbSotrMouseDown
      Width = 191
    end
    object dbgIR: TcxGrid
      Left = 1
      Top = 87
      Width = 400
      Height = 234
      Align = alTop
      TabOrder = 3
      LookAndFeel.Kind = lfStandard
      object tvIR: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        NavigatorButtons.First.Visible = True
        NavigatorButtons.PriorPage.Visible = True
        NavigatorButtons.Prior.Visible = True
        NavigatorButtons.Next.Visible = True
        NavigatorButtons.NextPage.Visible = True
        NavigatorButtons.Last.Visible = True
        NavigatorButtons.Insert.Visible = False
        NavigatorButtons.Append.Visible = False
        NavigatorButtons.Delete.Visible = False
        NavigatorButtons.Edit.Visible = False
        NavigatorButtons.Post.Visible = False
        NavigatorButtons.Cancel.Visible = False
        NavigatorButtons.Refresh.Visible = False
        NavigatorButtons.SaveBookmark.Visible = False
        NavigatorButtons.GotoBookmark.Visible = False
        NavigatorButtons.Filter.Visible = False
        DataController.DataSource = dsIRComments
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'BALANCE'
            DisplayText = #1054#1073#1097'. '#1089#1091#1084#1084#1072
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'DEBET'
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'KREDIT'
          end>
        DataController.Summary.SummaryGroups = <>
        DataController.Summary.Options = [soNullIgnore]
        FilterRow.InfoText = #1065#1077#1083#1082#1085#1080#1090#1077' '#1079#1076#1077#1089#1100' '#1076#1083#1103' '#1089#1086#1079#1076#1072#1085#1080#1103' '#1092#1080#1083#1100#1090#1088#1072
        NewItemRow.InfoText = #1065#1105#1083#1082#1085#1080#1090#1077' '#1079#1076#1077#1089#1100' '#1076#1083#1103' '#1076#1086#1073#1072#1074#1083#1077#1085#1080#1103' '#1085#1086#1074#1086#1081' '#1089#1090#1088#1086#1082#1080
        OptionsBehavior.CellHints = True
        OptionsBehavior.IncSearch = True
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Inserting = False
        OptionsSelection.HideFocusRectOnExit = False
        OptionsSelection.InvertSelect = False
        OptionsSelection.UnselectFocusedRecordOnExit = False
        OptionsView.NavigatorOffset = 10
        OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
        OptionsView.ColumnAutoWidth = True
        OptionsView.DataRowHeight = 24
        OptionsView.ExpandButtonsForEmptyDetails = False
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        Preview.Visible = True
        Styles.Content = DMInv.cxData
        Styles.IncSearch = DMInv.cxKrasniyText
        Styles.Selection = DMInv.cxJoltiyFon
        Styles.Header = DMInv.cxSiniyText
        object tvIRIRTIME: TcxGridDBColumn
          Caption = #1042#1088#1077#1084#1103' '#1089#1086#1079#1076#1072#1085#1080#1103
          DataBinding.FieldName = 'IRTIME'
          Options.Editing = False
          Width = 92
        end
        object tvIRIRCOMMENT: TcxGridDBColumn
          Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          DataBinding.FieldName = 'IRCOMMENT'
          Options.Filtering = False
          Width = 286
        end
      end
      object dbgIRLevel1: TcxGridLevel
        GridView = tvIR
      end
    end
    object cxLabel2: TcxLabel
      Left = 1
      Top = 1
      Align = alTop
      Caption = #1056#1077#1072#1082#1094#1080#1103' '#1085#1072' '#1076#1086#1082#1091#1084#1077#1085#1090
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clGray
      Style.Font.Height = -19
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
    end
    object ToolBar1: TToolBar
      Left = 1
      Top = 51
      Width = 400
      Height = 36
      ButtonHeight = 26
      ButtonWidth = 25
      Caption = 'ToolBar1'
      Images = DMInv.ilActive
      TabOrder = 5
      object tbAddIR: TToolButton
        Left = 0
        Top = 2
        Hint = #1057#1086#1079#1076#1072#1090#1100' '#1082#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
        Caption = 'tbAdd'
        ImageIndex = 28
        ParentShowHint = False
        ShowHint = True
        OnClick = tbAddIRClick
      end
      object tbDelIR: TToolButton
        Left = 25
        Top = 2
        Hint = #1059#1076#1072#1083#1080#1090#1100' '#1082#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
        Caption = 'tbDelIR'
        ImageIndex = 29
        ParentShowHint = False
        ShowHint = True
        OnClick = tbDelIRClick
      end
    end
    object bClearStatus: TcxButton
      Left = 207
      Top = 350
      Width = 25
      Height = 25
      Hint = #1054#1095#1080#1089#1090#1080#1090#1100' '#1089#1090#1072#1090#1091#1089
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = bClearStatusClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333337333333333333333F33333333333333313333333
        333333337F33333333333333113333713333333377F33377F333333371733717
        3333333377F3377F333333333117311333333333377F377F3333333337111133
        33333333337777F33333333337111333333333333F777F333333333371111733
        3333333337777F3333333333117311733333333377F377F33333333333333117
        333333333333377F33333333333333117333333333333377F333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object cxSplitter1: TcxSplitter [4]
    Left = 625
    Top = 45
    Width = 8
    Height = 531
    HotZoneClassName = 'TcxMediaPlayer9Style'
    Control = Panel6
  end
  object qPeople1: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, d.SDID, p.PDATEBIRTH'
      'FROM PEOPLE P'
      'INNER JOIN DOLJNOST_PEOPLE d ON d.PID = P.PID'
      'INNER JOIN DOLJNOST D1 ON d1.DOLID = d.DOLID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = d1.SDID'
      'WHERE P.PISDELETE IS NULL AND d.DOLISDELETE IS NULL'
      
        'AND CURRENT_DATE BETWEEN D.DOLDATEBEGIN AND COALESCE(d.DOLDATEEN' +
        'D, CURRENT_DATE)'
      'ORDER BY 2')
    Left = 424
    Top = 182
    object qPeople1PID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPeople1PP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPeople1SDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPeople1SDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
    object qPeople1PDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
  end
  object dsPeople: TDataSource
    DataSet = qPeople1
    Left = 456
    Top = 182
  end
  object dxMemData1: TdxMemData
    Indexes = <>
    Persistent.Data = {
      5665728FC2F5285C8FFE3F0200000004000000030003006964001E0000000100
      05006E616D650001010000000109000000C2FBEFEEEBEDE5EDEE010200000001
      08000000CEF2EAE0E7E0EDEE01030000000115000000CDF3E6E4E0E5F2F1FF20
      E220F3F2EEF7EDE5EDE8E801040000000114000000C220EFF0EEF6E5F1F1E520
      EEE1F0E0E1EEF2EAE8}
    SortOptions = []
    Left = 807
    Top = 366
    object dxMemData1id: TIntegerField
      FieldName = 'id'
    end
    object dxMemData1name: TStringField
      DisplayWidth = 30
      FieldName = 'name'
      Size = 30
    end
  end
  object DataSource1: TDataSource
    DataSet = dxMemData1
    Left = 759
    Top = 366
  end
  object dsIRComments: TDataSource
    DataSet = qIRComments
    Left = 577
    Top = 206
  end
  object qIRComments: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qIRCommentsAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT IRC.*'
      'FROM IR_COMMENTS IRC'
      'WHERE IRC.IRID = :IRID')
    UpdateObject = quIRComments
    GeneratorField.Field = 'IRCID'
    GeneratorField.Generator = 'GEN_IR_COMMENTS_ID'
    Left = 616
    Top = 206
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IRID'
        ParamType = ptUnknown
      end>
    object qIRCommentsIRCID: TIntegerField
      FieldName = 'IRCID'
      Origin = '"IR_COMMENTS"."IRCID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qIRCommentsIRID: TIntegerField
      FieldName = 'IRID'
      Origin = '"IR_COMMENTS"."IRID"'
    end
    object qIRCommentsIRTIME: TDateTimeField
      FieldName = 'IRTIME'
      Origin = '"IR_COMMENTS"."IRTIME"'
    end
    object qIRCommentsIRCOMMENT: TIBStringField
      FieldName = 'IRCOMMENT'
      Origin = '"IR_COMMENTS"."IRCOMMENT"'
      Size = 2048
    end
  end
  object quIRComments: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IRCID,'
      '  IRID,'
      '  IRTIME,'
      '  IRCOMMENT'
      'from IR_COMMENTS '
      'where'
      '  IRCID = :IRCID')
    ModifySQL.Strings = (
      'update IR_COMMENTS'
      'set'
      '  IRCID = :IRCID,'
      '  IRCOMMENT = :IRCOMMENT,'
      '  IRID = :IRID,'
      '  IRTIME = :IRTIME'
      'where'
      '  IRCID = :OLD_IRCID')
    InsertSQL.Strings = (
      'insert into IR_COMMENTS'
      '  (IRCID, IRCOMMENT, IRID, IRTIME)'
      'values'
      '  (:IRCID, :IRCOMMENT, :IRID, current_timestamp)')
    DeleteSQL.Strings = (
      'delete from IR_COMMENTS'
      'where'
      '  IRCID = :OLD_IRCID')
    Left = 656
    Top = 206
  end
  object mdPrioritet: TdxMemData
    Indexes = <>
    Persistent.Data = {
      5665728FC2F5285C8FFE3F020000000400000003000300696400140000000100
      05006E616D65000101000000010A000000CDEEF0ECE0EBFCEDFBE90102000000
      010D000000CEF7E5EDFC20F1F0EEF7EDFBE9}
    SortOptions = []
    Left = 335
    Top = 222
    object IntegerField1: TIntegerField
      FieldName = 'id'
    end
    object StringField1: TStringField
      FieldName = 'name'
    end
  end
  object dsPrior: TDataSource
    DataSet = mdPrioritet
    Left = 287
    Top = 222
  end
  object cxPropertiesStore1: TcxPropertiesStore
    Components = <
      item
        Component = Panel6
        Properties.Strings = (
          'Height'
          'Left'
          'Top'
          'Width')
      end>
    StorageName = 'Software\Olympic_PS_fmAddEdit_IR'
    StorageType = stRegistry
    Left = 576
    Top = 112
  end
end
